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Abstract 


This  report  describes  a  seque 
language  that  has  beer,  designed  for 
introductory  computer  programming. 
PL/1  to  those  language  features  which 
good  programming  habits.  The  subsets 
SP/8.  Each  subset  introduces  new 
retaining  features  introduced  in  earl 


nee  of  sub 
the  purpo 
The  eight 
the  authors 
are  called 
language 
ier  subsets. 


sets  of  the  PL/1 
se  of  teaching 
subsets  restrict 
feel  encourage 
SP/1,  SP/2,  ..., 

features  while 


A.  second  purpose  of  this  report  is  to  give  the  specifications 
of  the  compiler  developed  to  support  these  PL/1  subsets.  There 
xist  versions  of  the  SP/k  compiler  that  run  on  either  the  IBM 
60/370  computers  or  the  DEC  PDP-11  computers;  these  compilers 
are  available  from  the  Compu-'rer  Systems  Research  Group. 

This  report  supercedes  technical  report  CSEG-27  that 
described  the  first  six  subsets. 
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structured  Subsets  of  the  PL/1  Language: 


Eight  Subsets 


This  report  has  two  purposes 
of  subsets  of  the  PL/1  language  t 
purpose  of  teaching  introduc 
rovides  specifications  for  a  com 
he  University  of  Toronto  especia 

In  particular  this  report 
ubsets  of  the  PL/1  language.  Th 
ubsets  are  called  SP/1,  SP/2 
ntroduces  more  programming  featu 
f  previous  subsets. 

Two  earlier  reports  fir  10] 
hat  should  be  applied  to  PL/1  fo 
1  ]  also  presents  arguments  in  f 
onstrained  form,  as  an  introduct 

In  *he  interest  of  making 
urposes,  SP/k  restricts  or  elimi 
^/k  every  variable  mus-*-  be 
llowed  o  specify  number  base 
recisions;  this  avoids  problems 
f  full  PL/1.  Implicit  conve 
umeric,  logical  and  charact 
onversion  anomalies. 


.  First,  it  presents  a  seguence 
hat  have  been  developed  for  the 
tory  programming.  Second,  it 
piler  that  has  been  developed  at 
lly  to  support  these  subsets. 

describes  a  seguence  of  eight 
<=“  seguence  is  called  SP/k;  the 
,  SP/3,  and  so  on.  Each  subset 
res,  while  keeping  the  features 

give  guidelines  for  restrictions 
r  pedagogic  purposes.  (Peport 
avour  of  using  PL/1,  in  a  highly 
ory  programming  language.) 

PL/1  more  suitable  for  pedagogic 
nates  many  PL/1  features.  In 
declared.  Declarations  are  not 
s  (binary  versus  decimal)  or 
arising  from  the  precision  rules 
rsions  are  not  allowed  among 
er  types,  thereby  eliminating 


Features  implied  by  the  following  keywords  are  not  in  SP/k: 
inary,  complex,  initial,  external,  pointer,  goto,  on,  and  begin, 
he  following  PL/1  features  are  eliminated:  fixed-length 
character  strings,  label  variables,  operations  on  entire  arrays 
or  structures,  pseudo  variables,  data  directed  input-output, 
static  allocation,  controlled  allocation,  based  allocation, 
mult itaskinq,  and  compile-time  processing. 


Instead  of  giving  a  complete  list  of  the 
features,  we  will  specify  SP/k  by  giving  a  list 
f “Matures.  Language  features  introduced  by  subsets 
are  summarized  in  the  following  -^able. 


omitted  PL/1 
of  included 
SP/1  to  SP/8 


Subse  t 


Features 


Intro  duced 


SP/1 


SP/2 


Characters:  letters,  digits  and  special  characters 

Constants:  fixed,  float  and  character  string 

Expressions:  +,  -,  *,  /,  fixed  to  float  conversion 

Simple  output:  put  list 

Mathematical  built-in  functions:  mod,  sin,  cos,  atan, 
log,  exp,  sgrt. 

Identifiers  and  variables 
Declarations:  fixed  and  float 

Assignment  statements  (with,  float  to  fixed  conversion) 
Simple  input:  get  list 
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SP/3 


SP/4 


SP/5 

SP/6 


SP/7 


Comparisons:  <,  >,  =,  <=,  >=,  -»= 

Logical  expressions:  &,  |,  and  -• 

Selection:  if-then-else  and  non-iterative  do  group 

Pepetition:  do  while  loop  and  indexed  do  loop 

Paragraphing 

Logical  constants:  'O'B  (false)  and  'I'B  (true) 
Loaical  variables:  the  bit  attribute 


Character  string  expressions:  concatenation 
Character  string  variables  (varying  length  only) 
Character  string  comparison  and  blank  padding 
Character  string  built-in  functions:  length  and  substr 

Arrays  (including  multiple  dimensions) 

Procedures:  subroutines  and  functions 

Calling  and  returning 

Arguments  and  parameters 

Side  effects  and  dummy  arguments 

A.rrays  and  character  strings  as  arguments 

Detailed  con+rol  of  input  and  output:  get  and  put  edit 


SP/8  PL/1  structures  (one  level  only) 

Files:  open  and  close 

Fecord  oriented  input  and  output:  read  and  write 

The  following  sections  give  detailed  specifications  for  each 
subset.  In  describing  the  subsets,  we  will  use  this  notation: 

[item]  means  the  item  is  optional 

{item}  means  the  item  can  appear  zero  or  more  times 

When  Drf=senting  the  syntax  of  language  constructs,  items  written 
in  upper  case  letters,  for  example. 


PROCFDURF 

denote  keywords;  these  items  must  appear  in  SP/k  jobs  exactly  as 
presented.  Items  written  in  lower  case  letters,  for  example, 

statement 


denote  one  of  a  class  of  constructs;  each  such  item  is  defined 
below  as  it  is  introduced. 
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SP/1  :  INTPODUCTION  OF  FXPPFSSIONS  AND  OO'T’PUT 


W?  now  begin  the  specification  of  the  first  subset. 

A  character  is  a  letter  or  a  cligi+  or  a  special  character, 

A  letter  is  one  of  the  following: 

A3CDFFGHTJKLMN0PQFSTUVWXYZ$ 

A  digit  is  one  of  the  following: 

0123456789 

2ll§I§cter  is  one  of  the  following: 

+  -*/()=<>.  :  ;?%ei-. 

b  (blank) 

'  (apostrophe  or  single  guote) 

_  (break  character  or  underscore) 

fixed  constant  is  one  or  more  digits  (without  embedded  blanks), 
for  example: 

4  19  243  92153 

22Il2i2Ili  consists  of  a  mantissa  followed  by  an  exponent 
(without  embedded  blanks) .  The  mantissa  must  be  one  or  more 
digits  with  an  optional  decimal  point.  The  i.x£2I12D.i  roust  be  the 
letter  F,  followed  by  an  optional  plus  or  minus  sign  followed  by 
one  or  more  digits.  The  following  are  examples  of  float 
constants. 

5.16F+00  50F0  .0418E24  l.F-2 

Note  that  a  fixed  constant  may  not  contain  a  decimal  point.  Note 
also  that  a  float  constant  need  not  contain  a  decimal  point,  but 
must  contain  an  exponent. 

There  is  a  maximum  allowed  number  of  digits  in  a  fixed 
constant.  There  is  a  maximum  allowed  number  of  digits  in  the 
mantissa  of  a  floa-*:  constant  and  a  maximum  allowed  magnitude  of 
exponent.  (These  maximum  values  will  vary  from  implementation  to 
implementation;  see  Appendix  3.) 

A  literal  (or  character  string  constant)  is  a  single  quote  (an 
apostrophe),  followed  by  zero  or  more  occurrences  of  non-single¬ 
quote  characters  or  twice  repeated  single  quotes,  followed  by  a 
single  guote.  The  following  are  examples  of  literals: 

•FRED'  •X=24'  'NP.  0''PFILLY' 

There  is  an  implementation-determined  maximum  length  of  character 
strings  (see  A.ppendix  3). 


u 


Fach  constant  must  appear  entirely  on  one 
constants  must  not  cross  card  boundaries. 

In  SP/1,  an  ex£ression  is  one  of  the  following; 

fixed  constant 
float  constant 
literal 
+express ion 
-expression 
expression  + 
expression  - 
expression  * 
expression  / 

(expression) 
built-in  function 


card  ,  i . e. , 


expression 

expression 

expression 

expression 


Float  and  fixed  values  may  be  combined  in  expressions.  When 
a  fixed  value  is  combined  with  a  float  value,  the  result  is  a 
float  value. 


Fvaluation  of  expressions 
the  exceptions  that  multiplicati 
precedence  than  (i.e.,  are  e 
subtractions  and  that  parenthesi 
before  being  used  in  arithmetic 
and  -)  are  evaluated  before  bina 
be  used  only  when  one  or  both 
Division  of  a  fixed  value  by  a  f 
following  are  examples  of  legal 


proceeds  from  left  to  right,  with 
ons  and  divisions  have  higher 
valuated  before)  additions  and 
zed  sub-expressions  are  evaluated 
operations.  Unary  operations  (+ 
ry  operations.  Division  (/)  can 
of  the  operands  are  float  values, 
ixed  value  is  not  allowed.  The 
e  xpressions. 


-4+20  2*8.5E+00  (4 . C E+ 01- 12 . OE+01 ) /- 2 


The  values  of  these 
17.0E+00,  and  4.0E+01. 


three  expressions  are,  respectively,  16, 


Character  strings  cannot  be  used  in  arithmetic  operations. 
In  SP/k  there  are  no  implicit  conversions  from  numeric  values  to 
character  string  values  or  vice  versa. 

An  SP/1  built-in  function  call  is  one  of  the  following; 


MOD(  expression  ,  expression  ) 

SIN(  expression  ) 

COS (  expression  ) 

ATAN  (  expression  ) 

LOG (  expression  ) 

EXP (  expression  ) 

SQFT  (  expression  ) 

function  accepts  two  fixed  expressions  as  arguments  and 
a  fixed  result.  The  SIN,  COS,  ATAN,  LOG,  EXP,  and  SQRT 
mathematical  functions  accept  a  single  fixed  or  float  expression 
as  an  argument  and  produce  a  float  result.  Appendix  2  gives  a 
more  detailed  description  of  SP/k  built-in  functions. 


The  MOD 
produces 
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A.n  SP/1  statement  is  one  of  the  following: 

PUT  [SKIP]  LIST  (expression  {, expression}  ); 

PUT  P?i-GE  LIST  (expression  (,  expression}  ); 

An  SP/1  program  is:  T:PFOCEDURF  OPTIONS ( MAIN) ; 

{statement} 

END; 

Remember  that  the  notation  {statement}  means  zero  or  more 
statements.  The  following  is  an  example  of  an  SP/1  program: 

T:PROCEDUPE  OPTIONS (MAIN) ; 

PUT  SKIP  LIST(2,  'PLUS',  3,  'MAKES',  2'»-3); 

END; 

The  output  from  this  example  is:  2  PLUS  3  MAKES  5 

Output  produced  by  the  PUT  LIST  statement  is  placed  in 
successive  "fields"  across  the  print  line.  All  fields  have  the 
same  width.  A  new  print  line  is  started  when  all  fields  on  a 
line  have  been  used,  or  when  SKIP  (or  PAGE)  is  used  in  the  PUT 
LIST  statement.  (See  Appendix  3  for  the  number  of  and  size  of 
these  fields.) 

When  a  literal  is  printed  by  a  PUT  LIST  statement,  its 
enclosing  single  quotes  are  removed.  In  addition,  twice  repeated 
single  quotes  in  a  literal  are  printed  as  one  single  quote.  A 
long  string  may  use  several  print  fields.  If  the  printed  string 
exactly  fills  all  the  columns  of  a  field,  then  the  next  field  is 
skipped. 

There  may  be  slight  differences  in  the  handling  of  certain 
aspects  of  the  SP/1  subset  by  different  compilers.  These 
differences  include  the  following: 

1.  Length  of  character  strings.  Most  compilers  allow  character 

strings  to  be  at  least  127  characters  long. 

2.  Number  of  digits  in  fixed  values.  Most  compilers  allow  at 

least  5  digits. 

3.  Number  of  digits  in  the  mantissa  of  a  float  value.  Most 

compilers  allow  at  least  6  mantissa  digits. 

4.  Magnitude  of  float  values.  Most  compilers  allow  the 

magnitude  of  float  numbers  to  be  at  least  1.00000E+36. 

5.  Use  of  columns  of  punch  cards  for  programs.  Some  compilers 
allow  only  columns  2  through  72  of  a  punch  card  to  be  used 
for  the  program.  Of  course,  this  restriction  does  not  apply 
to  mark  sense  cards.  All  80  columns  of  a  punch  card  can  be 
used  for  data. 

(See  Appendix  3  for  more  details  on  the  above  points.) 
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SP/2:  INTBODDCTICN  TO  VAPTAELES,  INPUT  AND  ASSIGNMENT 


We  now  begin  the  specifications  of  the  second  subset,  SP/2. 

An  is  a  letter  followed  by  zero  or  more  letters, 

digits,  or  break  characters  (underscores).  An  identifier  cannot 
con'^ain  embedded  blanks.  Most  compilers  allow  identifiers  to  be 
at  least  31  characters  long.  Some  compilers  limit  the  identifier 
which  names  a  program  to  7  characters. 

An  SP/2  program  is:  iden t if ier : PPOCEDUPE  OPTIONS (MAIN) ; 

{decl arat ion} 

{statement} 

END; 

A  declaration  is:  DECLAP E (variable  {, variable}  ) attribute 

{,  (variable  {, variable}  ) attribute} ; 

An  attribute  is  one  of  the  following: 

FIXED 

FLOAT 

A  statement  is  one  of  the  following: 

PUT  [SKIP]  LIST (expression  (, expressi on}  ) 
PUT  PAGE  LIST (expression  { , ex  pres sion}  ); 
variable  =  expression; 

GET  [SKIP]  LIST  (variable  {,  variable}  ); 

In  SP/2,  each  variable  is  simply  an  identifier.  (There  are 
no  arrays  in  SP/2.) 

In  SP/k  all  variables  must  be  declared. 


In  SP/2  an  expression  may  be  a  variable. 

Float  values  may  be  assigned  to  fixed  variables.  Any  non¬ 
integer  part  of  such  a  float  value  is  truncated  before  the 
assignment  without  a  warning  message.  Fixed  values  may  be 
assigned  to  float  variables  with  automatic  conversion. 

The  items  in  the  data  (the  input  stream)  read  by  GET  LIST 
statements  must  be  separated  by  at  least  one  blank.  When  a  GET 
LIST  statement  is  executed,  one  data  item  is  read  for  each 
variable  in  the  statement. 


Each  item  in  the  input  stream  must 
constant,  a  fixed  constant  or  a  non-integer 

22112^2111  one  or  more 
point .  The  following  are  examples  of 
constants : 


be  a  literal,  a  float 
fixed  constant.  A 
digits  with  a  decimal 
non-integer  fixed 


3.14159 


243.12 


(T)  oa 
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Non-integer  fixed  constants  can  not  appear  in  p 
appear  in  data. 

Any  numeric  constant  (float,  fixed  or  non-in 
be  read  (and  will  be  automatically  converted  if  n 
float  variable.  Similarly,  any  numeric  constant 
will  be  automatically  truncated  if  necessary) 
variable.  There  are  no  automatic  conversion 
string  values  to  numeric  values  or  vice  versa. 

A  keyword  is  any  of  the  special  identifiers, 
GET,  and  LIST,  that  are  part  of  the  SP/k  syntax, 
not  be  given  the  same  name  as  a  keyword. 

Any  number  of  blanks  (or  card  boundaries)  ca 
symbols,  e.g.,  between  constants,  keywords 

operators  +,  -,  *,  /  and  the  parentheses 

constants,  keywords  or  identifiers  are  adjacent, 
adjacent  keywords  PUT  and  LIST,  they  must  be 
least  one  blank. 

A.  comment  consists  of  the  characters  /* 
characters  except  the  combination  =<'/  followed  by 
*/.  A  blank  cannot  appear  between  the  /  and  * 
and  /.  Comments  can  appear  wherever  blanks 
comment  must  not  cross  a  card  boundary.  Hence,  a 
would  cross  a  card  boundary  should  be  closed  by  * 
one  card  and  continued  by  /*  on  the  next  card.  I 
ood  practice  for  comments  to  appear  on  separate 
nds  of  lines.  Some  compilers  do  not  allow  the 
comment  to  start  in  card  column  1.  Comments  cann 
data . 


rograms,  but 


teger  fixed) 
ecessary)  in 
can  be  read 
into  a  f 
s  from  chara 


e.g.,  PEOCED 
A  variable 


n  appear  bet 
,  identifi 
(  and  ) . 
for  example, 
separated  b 


followed  by 
the  charac 
or  between  t 
can  appear, 
ny  comment  w 
/  at  the  end 
n  general,  i 
lines  or  at 
initial  /* 
ot  appear  in 


can 


can 
to  a 
(and 
ixed 
cter 


DEE  , 
can 


ween 
ers , 
When 
the 
y  at 


any 
ter  s 
he 

A 

hich 
of 
t  is 
the 
of  a 
the 
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SP/3:  INTRODUCTION  OF  LOGICAL  EXPRESSIONS,  SELECTION  AND  REPETITION 


condition  is  one  of  the  following: 

•O'E 
'  1  *  B 


-•condition 

condition  8 

cond 

condition  | 

cond 

compa  ri son 

(condition) 

logical  variable 

A  condition  is 

;  som 

constant  'O'B  means 

"  f  als 

A  comparison  i s 

one  0 

expre  ssi on 

<  exp 

expression 

>  exp 

expression 

=  exp 

expression 

<=  ex 

expression 

>=  ex 

expression 

-•=  ex 

An  attribute  is  one 

of  th 

The 


and  'I'B  means  "true”. 


FIXED 

FLOAT 

BIT 


Variables  declared  to  have  the 

Logical  variables 
logical  operations  of  and  (S)  ,  or 


BIT  attribute  are  called 
can  be  operands  in  the 
(I)  and  not  (-•)  .  Float  and 


fixed  values  cannot  be  operands  in  logical  operations. 

(Some  compilers,  namely,  PL/C  and  PL/1  F,  do  not  allow 
logical  variables  to  be  declared  as  simply  BIT.  ^or  these 
compilers,  the  attribute  BIT  (1)  must  be  used  instead.) 

The  and  operator  (8)  has  higher  precedence  than  the  or 
operator  (I).  Logical  variables  can  be  compared,  assigned,  read, 
and  printed.  Logical  variables  can  be  compared  only  for  equality 
or  inequality. 

There  is  no  implicit  conversion  between  numeric  values  (fixed 
and  float)  and  logical  values.  Logical  values  cannot  participate 
in  arithmetic  operations. 


q 


An  SP/3  staj-ernent  is  one  of  the  following: 

PUT  [SKIP]  LIST (expression  ( , ex pre ssion)  ); 

PUT  PAGE  LIST  (expression  expression]  ); 
variable  =  expression; 

GET  [SKIP]  LIST  (variable  {, variable]  ); 

IF  condition  THEN 
statement 
[ELSE 

statement  1 
DO  WHILE  (condition)  ; 

[statement] 

END; 

DO  identifier  =  expression  TO  expression  [BY  express 
(statemen  t] 

END; 

DO; 

[statement] 

END; 


V 

V 

s 

e 

o 

c 


I 

n 

h 

e  i 

nde 

xed 

DO 

aria 

ble 

( 

ider 

tif 

ier) 

mus 

aria 

ble. 

(E 

ven 

aft 

er 

till 

be 

s 

impl 

e. 

i.  e . 

r 

xpre 

ssion 

s  i 

s 

evalu 

ate 

f  the  loop.  The  BY  clau 
lause  is  omitted,  a  step 


group  (second  DO  group  above) ,  the  i 
t  have  been  declared  to  be  a  f 
arrays  are  introduced,  the  index 
not  an  array  element.)  Each  of 
d  once  at  the  beginning  of  the  execu 
se  specifies  a  step  size.  If  the 
size  of  1  is  assumed. 


When  the  third  expression 
indexed  DO  group  is  equivalent  to 


(step  size) 
+-he  following 


is 


posit i ve. 


start 

first 

ex 

pres 

limit 

= 

second 

e 

xpre 

step 

= 

third 

ex 

pres 

ident 

ifi 

er  =  s 

ta 

rt ; 

DO  WH 

ILE 

(ident 

if 

ier 

{s 

tat 

ement] 

id 

en  t 

if  ier 

= 

iden 

END; 

sion  ; 
ssion; 
sion  (or 

<=  limit) 

tifier  + 


1  if 


step 


no 


by  clause) ; 


If  the  -^hird  expression  is  negative,  the  comparison  in  the  a 
DO  WHILE  group  becomes  >= . 

The  following  is  an  example  of  an  SP/3  program. 


SP3; PPOCEDUFE  OPTION S (MAIN) ; 
DECLAPT=’  (N,  7,  TOTAL)  FIXED; 
TOTAL=0; 

GET  LIST (N)  ; 

DO  WHILE (N>0)  ; 

GET  LIST  (X)  ; 
TOTAL=TOTAL+X; 

N=N-1 ; 

END  ; 

PUT  LIST( 'TOTAL  IS', TOTAL); 
END; 


ion  ] 
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Paragraphing  rules  are  standard  conventions  for  i 
program  lines.  Some  compilers  provide  automatic  paragrap 
programs.  If  this  feature  is  available,  it  should  be  use 

A  set  of  paragraphing  rules  can  be  inferred  from  th 
used  to  present  SP/k  constructs.  For  example,  the  DO  WHI 
was  presented  in  the  following  form: 

DO  WHILE  (condition)  ; 

{statement} 

END; 

This  form  means  that  the  statements  enclosed  in  a  DO  WHI 
should  be  indented  beyond  the  level  of  the  opening  "DO 
line.  The  construct  "END;"  which  closes  the  group  s 
indented  to  the  same  level  as  the  enclosed  statements . 


Comments 
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SP/4:  INTRODUCTION  OF  CHARACTER  STRING  VARIABLES  AND  EXPRESSIONS 


is  one  of  the  following: 

FIXED 

FLOAT 

CHARACTER (maximum  length) VARYING 
BIT 


Variables  declared  to  have  the  attribute  CHARACTER  (maximum 
length) VARYING  are  called  character  string  variables.  In  the 
declaration  of  character  string  variables,  maximum  length  must  be 
a  fixed  constant.  The  concatenation  operator  (||)  can  be  used  to 
-join  two  strings  together.  Both  of  its  operands  must  be 
character  strings. 

There  are  two  built-in  functions,  SUBSTR  and  LENGTH,  which 
operate  on  character  string  values.  The  SUBSTR  built-in  function 
can  accept  two  or  three  arguments.  (SUBSTR  cannot  be  used  as  a 
PL/1  pseudo  variable.)  See  Appendix  3  for  a  detailed  description 
of  SUBSTR. 

The  LENGTH  built-in  function  has  one  argument,  which  must  be 
a  character  strin* 
assigned,  read  a; 
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SP/5:  INTPODDCTION  OF  ARPMS 


The  form  of  declaration  remains  as  it  was: 

is:  DECLAP  F  (variable  {,  variable}  )  attribute 

(variable  {, variable]  ) attribute]  ; 

However,  the  form  of  variable  is  now  allowed  to  specify  array 
bounds.  In  a  declaration,  a  variable  is  now: 

identifier  [  (range  {, range]  ) ] 

A  rj,nge  is  one  of  the  following: 

fixed  constant 

[-]  fixed  constant  :  [-]  fixed  constant 

The  first  form  of  range  assumes  the  lower  bound  is  1,  and 
specifies  the  upper  bound.  The  second  form  specifies  both  the 
lower  and  upper  bounds. 

In  an  expression,  or  in  a  GET  LIST  statement,  a  variable  has 
the  form: 

identifier  [  (expression  {, expression]  )  ] 

Each  array  index  expression  must  have  a  numeric  value.  A 
float  value  used  as  an  array  index  will  be  truncated  to  a  fixed 
value . 


Array  elements  may  be  compared,  assigned,  read, 
on  an  element  by  element  basis,  in  the  same  way 
variables  with  similar  attributes. 


and  printed 
as  simple 
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SP/6:  INTRODUCTION  OF  PROCEDDPFS 


In  SP/6  the  form  of  Erogram  is  extended  to  allow  the 
definition  of  (internal)  procedures. 

A  SP/6  Eroaram  is:  ident if ier : PROCEDURE  OPTIONS (MAIN) ; 

{declaration} 

(definition) 

{state  ment) 

END; 

A  definition  is:  ident if ier : PROCEDURE  [  (identifier  { , ide ntif ier}  )  ] 

r  RETURNS  (attribute)  ]; 

(declaration) 

(def init ion) 

(sta  teme  nt) 

END; 

Two  new  statements  are  added: 

CALL  procedure  name  [  (expression  {,  express! on)  )  ]; 

RE'^URN  {  (expression)  ]; 

All  parameters  to  a  procedure  must  be  declared.  Parameters 
are  passed  to  procedures  ”by  reference”;  this  means  that  when  a 
procedure  assigns  a  value  to  a  parameter,  the  corresponding 
argument  in  the  call  to  the  procedure  actually  receives  the 
value.  If  an  array  is  a  parameter,  then  the  ranges  for  each 
array  index  must  be  declared  by  an  asterisk  (*)  in  the  procedure. 

If  a  character  string  is  a  parameter,  then  the  maximum  length  of 
the  character  string  must  be  declared  by  an  asterisk  (*)  in  the 
procedure.  This  example  illustrates  these  requirements: 

SUPERSTR :P^OCEDURE (S ,1)  ; 

DECLARE (S) CHARACTER (*) VARYING; 

DECLAEE(I  (*,*) ) FIXED; 

•  •  • 

END; 

subrout ine  is  a  procedure  which  does  not  have  the  RETURNS 
clause  in  its  definition.  A  subroutine  can  be  invoked  only  by 
the  CA.LL  statement.  Return  from  a  subroutine  must  be  (a)  via  a 
RETURN  statement  without  the  optional  RETURN  expression  or  (b) 
via  the  last  statement  of  the  subroutine  (when  the  last  statement 
is  not  a  RETURN  statement) . 

is  a  procedure  which  has  the  RETURNS  clause  in  its 
definition.  A  function  can  be  invoked  only  by  using  its  name 
(with  arguments  if  required)  in  an  expression.  Return  from  a 
function  must  be  via  a  RETURN  statement  having  an  expression 
whose  attribute  matches  the  attribute  given  in  the  RETURNS 
clause.  (It  is  legal  to  have  a  fixed  value  as  the  RETURN 
expression  in  a  float  function  and  vice  versa;  automatic 
conversion  of  returned  values  will  take  place  for  these  cases.) 


£i  (t) 
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SP/7:  INTRODUCTION  OF  EDIT  DIRECTED  INPUT  AND  OUTPUT 


Statements  giving  explicit  control  of  the  format  of  input  and 
output  data  are  introduced. 

A  statement  is  one  of  the  following: 

a.  PUT  SKIP  r  (lines  to  skip)  ]; 

b.  PUT  [ SKIP[  (lines  to  skip)  ]1  LIST  (expression 

f , expression} ) ; 

c.  PUT  PAGE  LIST  (expression  {,  ex pression}  )  ; 

d.  PUT  r SKIPf  (lines  to  skip)  }}  EDIT  (expression 

{, expression} ) (format  item  format  item}); 

e.  PUT  PAGE  EDIT  (expression  expression} ) 

(format  item  format  item}); 

f.  PUT  PAGE; 

g.  variable  =  expression; 

h.  GET  SKIP  r  (cards  to  skip)  ]; 

i.  GET  [SKIP[  (cards  to  skip)  ]]  LIST  (variable 

f, variable} ) ; 

i.  GET  r SKIP[  (cards  to  skip)  }]  EDIT  (variable 

{,  variable})  (format  item  {, format  item}); 

k.  IF  condition  THFN 

statement 
[  ELSE 

Statement } 

l.  DO  WHILE  (condition); 

{statement} 

END; 

m.  DO  identif ier=expr ession  TO  expression 

f BY  expression]; 

{statement} 

END; 

n .  DO ; 

{statement} 

END  ; 

o.  CALL  procedure  name  [  (expression  { , expre ssion} )  ]; 

p.  RETURN  {  (expression)  ]; 


PUT  EDIT  statements  (forms  d  and  e  above)  allow  the 
pecification  of  a  particular  number  of  columns  to  be  printed, 
hen  successive  items  are  printed  via  a  PUT  EDIT  statement,  each 
item  is  printed  immediately  next  to  the  preceding  item.  This  is 
in  contrast  to  PUT  LIST  statements,  which  cause  items  to  be 
printed  in  equal  fields  across  the  page.  GET  EDIT  statements 

(form  j  above)  are  analogous  and  allow  the  specification  of 
particular  card  columns  to  be  read.  This  means  that  EDIT  data 
items  need  not  be  separated  by  blanks  or  commas. 


It  is  possible  to  use 
EDIT  directed  input-output 
confusion,  LIST  and  EDIT 
mixed  in  printing  a  particula 
card.  Those  who  insist  upon 
line  should  understand  the  fo 


both  LIST  directed  input-output  and 
in  the  same  program.  To  avoid 
directed  input-output  should  not  be 
r  line,  or  in  reading  a  particular 
mixing  the  two  for  printing  a  single 
llowing  details.  LIST  output  always 


proceeds  to  the  next  standard  output  field,  while  EDIT  output 
always  starts  at  the  current  position.  LIST  output  actually 
prints  a  blank  after  each  item;  hence,  when  an  EDIT  item  follows 
a  LIST  item  on  a  print  line,  the  two  will  be  separated  by  a 
blank.  Those  who  insist  upon  mixing  LIST  and  EDIT  directed  input 
when  reading  a  single  card  should  understand  the  following 
details.  Each  LIST  data  item  must  be  followed  immediately  by  a 
blank.  If  the  next  read  is  via  a  GET  EDIT  statement,  the  current 
position  is  taken  to  be  that  just  beyond  this  blank.  Following 
the  reading  of  a  data  item  via  GET  EDIT,  scanning  for  a  LIST  data 
item  begins  just  beyond  the  EDIT  item. 

In  the  PUT  SKIP  forms  (a,  b,  and  d  above) ,  lines  to  skip  can 
be  any  numeric  expression;  if  the  value  is  float,  it  is  truncated 
to  fixed.  If  the  lines  to  skip  clause  is  omitted  from  the  SKIP 
clause,  then  the  remainder  of  the  current  line  is  left  blank  and 
output  continues  on  the  next  line. 

If  the  value  of  lines  to  skip,  call  it  x,  is  positive,  then 
the  printer  will  return  to  column  1  while  performing  x  line 
ejects.  Putting  this  another  way,  the  remaining  columns  (if  any) 
of  the  current  line  will  be  left  blank,  and  x-1  blank  lines  will 
then  be  printed.  If  x  is  zero  (or  negative) ,  the  effect  is  a 
return  to  column  1  of  the  current  line  (with  no  line  eject) . 
Note:  when  x  is  egual  to  1,  it  is  equivalent  to  omitting  the 

§Jsi£  clause. 

In  the  GET  SKIP  forms  (h,  i,  and  j  above) ,  if  the  cards  to 
skip  clause  is  omitted  from  +he  SKIP  clause,  the  remainder  of  the 
current  card  is  ignored,  and  input  continues  from  the  next  card. 


In  the  GET  SKIP  forms,  cards  to  skip  can  be  an  expression.  If 
it  is  a  float  value,  it  is  truncated  to  a  fixed  value.  This 
fixed  value,  call  it  x,  must  be  at  least  1.  The  next  x  cards 
(where  the  remainder  of  the  current  card  counts  as  one  card)  will 
be  ignored.  Note:  SKIP(1)  is  equivalent  to  SKIP  with  cards  to 
skip  omitted. 

If  a  SKIP  clause  is  specified  and  the  current  card  or  line  is 
positioned  after  the  last  valid  data  column,  then  one  card  or 
line  is  counted  as  having  been  skipped  by  moving  to  the  next  card 
or  line  even  though  there  were  no  available  data  columns  to  be 
skipped. 

?.  format  item  is  one  of  the  following: 


X  (width) 

COLUMN  (position) 

F(width  [, fractional  digits]  ) 
E  (width,  fractional  digits) 

A.[  (wid  +  h)  ] 

P  (width) 

P  picture  specification 


(to  skip  columns) 

(to  skip  columns) 

(for  numeric  values) 
(for  numeric  values) 
(for  character  strings) 
(for  logical  values) 

(to  print  dollars) 
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Thp  X  and  COLUMN  format  items  are  used  only  for  control  of 
the  format  (skipping  columns).  The  other  format  items,  F,  E,  A, 
F,  and  P,  are  data  transferring  items.  In  the  EDIT  forms  (d ,  e, 
and  j  above)  there  must  be  the  same  number  of  data  transferring 
format  items  as  there  are  data  items  to  be  transferred.  The  last 
format  item  of  a  list  must  be  a  data  transferring  item  and  can 
not  be  X  or  COLUMN. 

The  terms  Eosition,  width ,  or  fractional  digits  must  be 
arithmetic  expressions;  usually  these  are  fixed  constants.  If 
the  value  is  float,  it  is  truncated  to  a  fixed  value. 

The  format  item  X  (width)  causes  width  columns  to  be  skipped 
on  input,  or  width  blanks  to  be  printed  on  output.  If  width  is 
negative  it  is  treated  as  zero.  (Note:  punch  cards  have  80 
columns.  Lines  have  120  columns  on  many  printers;  however,  other 
printers  may  provide,  for  example,  72,  80  or  132  columns.) 

The  COLUMN  format  item  causes  skipping  of  columns  until  the 
column  numbered  £Osition  is  reached.  If  Eosition  is  zero  or 
negative,  or  if  position  is  greater  than  the  size  of  the  card  or 
line,  it  is  replaced  by  one.  If  the  current  card  or  line  is 
already  positioned  after  column  E2§ifi2Ef  ^  skip  to  the  next  card 
or  line  is  performed,  followed  by  skipping  columns  until  the 
column  numbered  position  is  reached. 


The  F  and  E  format  items  are  used  to  read  and 
FIXED  and  "ploA-T  variables. 


write  either 


For  E  and  F  format  items  on  output,  fractions  are  rounded  and 
not  truncated  when  insufficient  space  is  allocated  for  the 
fractional  digits.  The  values  printed  under  control  of  E  and  F 
format  items  are  right- justified  and  padded  on  the  left  with 
blanks. 


On  input,  the  F  format  item  causes  the  next  width  columns  to 
be  read  as  a  fixed  number.  If  fractional  dibits  is  given  in  the 
format  item,  it  must  be  at  least  one  and  it  specifies  the 
insertion  of  a  decimal  point  the  given  number  of  places  from  the 
right  of  the  number,  producing  a  non-integer  fixed  constant;  the 
effect  is  that  if  the  decimal  point  is  omitted  from  the  data, 
scaling  occurs.  If  fractional  digits  is  omitted,  the  data  is 
assumed  to  be  an  integer  fixed  constant.  If  a  decimal  point 
appears  in  the  input  data,  then  the  actual  value  of  the  data  is 
used,  ignoring  the  specified  fractional  digits.  The  number  being 
read  may  be  preceded  or  followed  by  blanks.  A  completely  blank 
field  is  read  as  zero.  (Note:  when  a  non-integer  fixed  constant 
is  read  into  a  FIXED  variable,  the  value  is  truncated  to  an 
integer.)  On  output,  if  fractional  digits  is  not  specified,  an 
integer  is  printed  with  no  decimal  point,  but  if  it  is  specified, 
a  non-integer  fixed  constant  is  printed  with  the  designated 
precision  of  fraction.  In  no  case  does  the  F  format  item  cause 
scaling  on  output;  note  that  integers  always  have  a  zero-valued 
f  raction . 
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The  F  format  item  on  input  causes  the  reading  of  a  field  of 
size  width  containing  a  float  constant.  If  a  decimal  point  is 
present  in  the  float  constant,  the  specification  of  fractional 
digit s  is  ignored.  Otherwise,  a  decimal  point  is  inserted 
fractional  dibits  from  the  right  of  the  mantissa  (the  effect  is 
that  if  the  decimal  point  is  omitted  in  the  data,  scaling 
occurs) .  If  the  field  is  completely  blank,  this  is  an  error. 
The  exponent  can  be  omitted  from  values  read  under  control  of  the 
E  format  item.  On  output,  the  number  is  printed  as  a  float 
constant.  (Note:  the  fractional  digits  field  must  be  specified 
in  the  E  format  item.) 


When  using  an  E  format  item  on  output,  the  field  width  must 
be  at  least  large  enough  to  print  the  float  value.  In  particular, 
the  number  of  columns  specified  by  width  should  be  at  least  seven 
plus  fractional  digit s.  (The  float  value  is  printed  in  the  form 
mD. {f}Esdd  where  m  is  a  possible  leading  minus  sign,  D  is  a  non¬ 
zero  digit  (unless  the  float  value  is  zero) ,  {f}  is  the  string  of 
fractional  digits,  s  is  a  plus  or  minus  sign,  and  dd  is  the 
exponent  magnitude.) 


The  A  format  item  is  used  for  the  transfer  of  charact 
The  specified  number  of  characters  are  transferred.  On 
quotes  are  not  required  around  the  data  item.  On  output 
field  is  wider  than  the  data  item,  the  item  is  left-justi 
padded  with  blanks  on  the  right;  if  the  field  is  not  as 
the  data  item,  the  item  is  truncated  on  the  right.  On 
width  can  be  omitted  and  then  the  current  length  of  the  d 
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zero. 


The  P  format  item  is  used  for  writing  numbers,  usually  as 
dollar  values.  Numbers  cannot  be  read  using  the  P  format  item. 
Onlv  FIXED  values  can  be  written  using  this  format  item.  Each  P 
format  item  consists  of  the  letter  P  followed  by  a  sequence  of 
picture  elements  in  quotes.  For  example,  P * $ZZ , ZZ9 . 99DB  '  is  a  P 
format  item  whose  sequence  of  picture  elements  is  $ZZ,ZZ9.99DB. 
The  following  picture  elements  can  be  used. 

use 


.  period  insertion 
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$  floating  dollar  sign 
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printed,  then  DB 


symbol  (CP) 
negative, 
or  CP  must 


or  debit  symbol  (DB)  is  printed  only 
If  a  negative  number  is  to  be 
be  present. 


The  following 
i  tem : 


is  an  example  of  the  use  of  a  picture  format 


PUT  EDIT(21612)  (P ' $ZZ , ZZ9 . 99DB' )  ; 

This  statement  will  print  $bbb216.12bb  (the  letter  b  is  used  here 
to  represent  a  blank).  Now  consider  this  statement: 

PUT  EDIT(PPOFTT)  (P ' $$ , $$9 . 99DB' ) ; 

This  table  gives  the  output  for  selected  values  of  PPOEIT: 


PPOFIT  output 


259271 

39100 

2516 

5 

-481 


$2,592.71 
$391 . 00 
$25. 16 
$0.  05 
$4. 81DB 
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SP/8:  INTRODUCTION  OF  STRUCTURES  AND  FILES 


The  form  of  declaration  is  extended  to  allow  definition  of 
structures  and  files. 

is  one  of  the  following: 

a.  DECLARE  (variable  {, variable} ) attribute 

{, (variable  variable} ) attribute} ; 

b.  DECLARE  1  variable, 

2  variable  attribute 
{,2  variable  attribute}; 

c.  DECLARE  1  variable  LIKE  identifier; 

The  form  b  allows  the  definition  of  structures.  A  structure 
is  an  aggregate  of  several  fields  or  data  items.  The  fields  can 
have  different  attributes,  and  any  field  can  be  an  array.  Arrays 
of  structures  are  defined  by  including  ranges  in  the  variable 
following  the  integer  1  in  the  declaration.  Structures  cannot 
contain  other  structures  as  fields  and  thus  are  of  only  one 
level . 

The  form  c  allows  the  definition  of  a  structure  or  array  of 
structures  with  the  same  template  (field  names  and  attributes)  as 
another  structure.  The  identifier  must  be  a  structure  identifier. 
The  newly-declared  structure  variable  only  inherits  the  template 
of  identifier ,  not  its  dimensionality.  If  the  structure  variable 
is  to  represent  an  array,  the  ranges  must  be  explicitly  given. 
The  structure  referred  to  by  LIKE  must  not  itself  have  been 
declared  using  LIKE. 

A  field  of  a  structure  is  always  referred  to  by  the  name  of 
its  containing  structure,  followed  by  a  period,  followed  by  the 
field  name.  If  either  the  structure  or  the  field  is  an  array, 
parenthesized  subscripts  must  immediately  follow  the  appropriate 
name (s) . 

The  following  is  an  example  of  a  declaration  of  a  structure: 

DECLARE  1  OBSERVATION  (100)  , 

2  TIME  FIXED, 

2  SIZE  FIXED; 

This  statement  assigns  12  to  the  TIME  field  of  the  23rd 
structure : 

OBSERVATION (23)  .TIME=12; 

Structures  can  be  read  into,  written  from,  assigned,  and 
passed  as  parameters.  No  other  operations  can  be  performed  on 
structures.  One  structure  can  be  assigned  to  another  only  if  one 
is  LIKE  the  other  or  both  are  LIKE  the  same  structure. 
Similarly,  if  a  structure  is  passed  as  a  parameter,  the  formal 


1 1-  -d  0)  0)  'T|  Hi  C  rt  O  o  >-3  T3  rti  O 
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parameter  that  it  corresponds  to  must  be  LIKE  it,  or  they  must 
both  be  LIKE  the  same  structure. 

Fields  of  structures  can  be  used  in  LIST  or  EDIT  input  and 
output  statements,  but  whole  structures  cannot  be  transferred  by 
these  statements. 

Av.  attribute  is  one  of  the  following: 

FIXED 

FLOAT 

CHARACTEE  (maximum  length)  VARYING 
BIT 

RECORD  FILE 

A  variable  with  the  attribute  RECORD  FILE  allows  access  to  a 
collection  of  records  external  to  the  main  memory  of  the 
omputer.  A  field  of  a  structure  cannot  have  the  attribute  RECORD 
TLE.  This  collection  is  called  a  dataset  or  fils.  Arrays  of 
iles  are  not  allowed,  and  files  cannot  be  assigned,  compared,  or 
assed  as  parameters.  Each  record  corresponds  to  a  structure, 
he  data  set  consists  of  records  all  of  the  same  template.  Some 
ompilers  restrict  the  name  of  a  file  to  be  at  most  seven 
haracters  long.  One  record  at  a  time  can  be  transferred  from 
he  dataset  to  a  structure  or  from  a  structure  to  the  dataset  by 
sing  READ  and  WRITE  statements,  respectively. 

The  following  statements  are  introduced: 

a.  OPEN  FILE  (file  name) INPUT; 

b.  OPEN  FILE  (file  name) OUTPUT; 

c.  CLOSE  FILE (file  name); 

d.  READ  FILE (file  nam e) INTO (structure  name) 

e.  WRITE  FILE  (file  na me) FROM  (structure  name) 


The  parenthesized  file  name  following  the  keyword  FILE  in  the 
orms  a  to  e  must  have  been  declared  with  the  attribute  RECORD 
ILE. 

Files  allow  sequential  access  to  datasets.  The  OPEN  statement 
stablishes  a  communication  path  between  the  file  variable  and  an 
xternal  dataset.  When  an  OPEN  statement  is  executed,  the  file  is 
ositioned  at  the  first  record  of  the  dataset.  An  OPEN  must  be 
he  first  operation  performed  on  any  file. 

A  file  opened  for  INPUT  can  only  have  READ  or  CLOSE  performed 
on  it.  A  file  opened  for  OUTPUT  can  only  have  WRITE  or  CLOSE 
performed  on  it. 

The  CLOSE  statement  dissolves  the  communication  path  between 
the  file  variable  and  the  associated  external  dataset.  A  file 
can  be  closed  and  reopened  in  a  program,  and  the  mode  (INPUT  or 
OUTPUT)  is  independent  of  previous  usage  of  the  file.  Within  a 
given  program,  all  structures  transferred  to  and  from  a 
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particular  file  must  be  LIKE  each  other,  or  LIKE  the  same 
structure . 

The  following  is  an  example  of  an  SP/8  program.  This  program 
reads  a  dataset  into  an  array  of  structures,  sorts  these 
structures  into  ascending  order  by  TIME  and  writes  the  sorted 
array  to  a  new  file. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1  1 
12 
1  3 

14 

15 
1  6 
17 
1  8 
1  9 
20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 


SOET : PROCEDUPE  OPTION S  (MAIN)  ; 

DECLARE  (NUMBER_OE_RECORDS)  EIXED, 

(I, J) EIXED; 

DECLARE (INEILE, ODTEILE) RECORD  EILE ; 

DECLARE  1  OBSERVATION (100)  , 

2  TIME  EIXED, 

2  SIZE  EIXED; 

DECLARE  1  WOPK_PECORD  LIKE  OBSERVATION; 

/*  READ  IN  THE  UNSORTED  STRUCTURES  */ 

GET  LIST (NUMBER_OE_RECORDS) ; 

OPEN  EILE(INEILE)  INPUT; 

DO  1=1  TO  NUMBER_OE_RECORDS; 

READ  EILE  (INEILE) INTO (OBSERVATION (I)  )  ; 

END; 

CLOSE  EILE  (INEILE)  ; 

/=<'  SORT  THE  VECTOR  OP  STRUCTURES  */ 

DO  1=1  TO  NUMBER_OE_RECORDS- 1; 

DO  J=1  TO  NDMBER_OE_RECORDS-I; 

IE  OBSERVATION(J) .TIME>OBSERVATION (J+1) .TIME  THEN 
DO; 

WOPK_RECORD=OBSERVA.TION  (J)  ; 

OBSERVATION (J) =OBSERVATION (J+1) ; 

OBSERVATION (J+ 1) =WORK_RECOED; 

END; 

END; 

END  ; 

/*  WRITE  OUT  THE  SORTED  VECTOR  */ 

OPEN  EILE (OUTEILE)  OUTPUT; 

DO  1=1  TO  NUMBER_OE_RECORDS; 

WRITE  EILE (OUTEILE) EROM (OBSERVATION (I) ) ; 

END; 

CLOSE  EILE  (OUTEILE)  ; 

END; 


Some  PL/1  compilers  such  as  PL/C  do  not  support  LIKE  in 
declarations.  To  run  under  such  a  compiler,  line  8  of  the 
example  program  could  be  changed  to: 


DECLARE  1  WORK_RECORD, 

2  TIME  EIXED, 
2  SIZE  EIXED; 


Some  compilers  such  as  PL/C  do  not  allow  READ  and  WRITE  to 
transfer  elements  of  an  array  of  structures.  To  run  under  such  a 
compiler,  lire  13  could  be  changed  to: 
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BEAD  FILE (TNFILE) INTO (WOBK_RECOFD) ; 
OBSERVATION (I) =WORK_RECOR D ; 

Lire  30  could  be  changed  in  a  similar  way. 
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A.PPENDIX  1  :  THE  STATEMENT  SYNTAX  OF  SP/6 


A  Job  is:  $JOB 

program 
$DATA 
r  <3ata  ] 

A  orogram  is:  ident  if  ier  : PPOCEDUP.E  OPTIONS  (MAIN)  ; 

{declaration} 

{definition} 

{statement} 

END  ; 

declarat  ion  is:  DECLAP  E  (variable  {, variable}  )  attribute 

{,  (variable  {, variable}  ) attribute}  ; 

lllEi^ute  is  one  of  the  following: 

FIXED 

FLOAT 

CHAPACTEP  (maximum  length) VARYING 
BIT 

^  is:  identifier  :PPOCEDUPE[  (identifier  {,  identif  ier}  )  ] 

r  RETURNS  (attribute)  ]; 

{declaration} 

{definition} 

{st  atem  ent} 

END; 

A  statement  is  one  of  the  following: 

PUT  {SKIP]  LIST  (express!  on  {,  expression}  )  ; 

PUT  PAGE  LIST (expression  {, expression}  ); 

GET  {SKIP]  LIST (variable  {, variable]  )  ; 
variable  =  expression; 

IF  condition  THEN 
sta teme  nt 
{  ELSE 

sta teme  nt ] 

DO  WHILE (condition) ; 

{statement} 

END; 

DO  identifier  =  expression  TO  expression 
{BY  expression]; 

{statement} 

END ; 

DO  ; 

{statement} 

END; 

CALL  procedure  name  [(expression  {, expression} )  ] 
RETURN  {  (expression)  ]; 


Notation : 


[item]  means  the  item  is  optional. 

{item}  means  the  item  is  repeated  zero  or  more  times 
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APPENDIX  2:  BUILT-IN  FUNCTIONS  IN  SP/k 


a.  An  arithmetic  built-in  function. 


MOD(i, j) :  remainder  of  i  divided  by  j;  i  and  j  must  b 
values.  The  result  is  fixed. 

^ ♦  Mathematical  built-in  functions . 

For  these  functions,  the  arguments  may  be  float  or  fi 
The  result  is  float. 


SIN  (X) 
COS (X) 
ATAN (X) 
LOG (X) 
EXP  (X) 
SQRT  (X) 


sine  of  x  radians, 
cosine  of  x  radians, 
arctangent  of  x  in  radians, 
natural  logarithm  of  x. 
e  to  the  X  power, 
sguare  root  of  x. 


c*  Strin3_built2in_f unctions. 

LENGTH (s)  -  number  of  characters  (currently)  in  strin 

SUBSTF(s,i  r  ,  j  ])  -  substring  of  s  from  i-th  to  last  c 

r  or  from  i-th  character  for  a  length  of  j  charac 


In  SUESTR,  s  must  be  a  character  string  value;  i  [and 
be  fixed  or  float;  the  result  is  a  character  string.  The 
of  i  and  j  are  truncated  to  fixed  values  when  given  as  fl 
substring  selected  by  i  [and  j]  must  be  contained  entirel 
s.  This  means  that  i  should  be  at  least  one,  j  s 
positive  or  zero  and  i  plus  j  minus  one  should  not  exc 
length  of  string  s;  otherwise  there  is  an  error.  Some  co 
such  as  PL/C,  require  that  i  must  be  at  most  equal  to  the 
of  s.  Other  compilers,  such  as  Toronto's  SP/k  compiler, 
to  be  one  more  than  the  length  of  s  when  j  is  zero  o 
omit  ted . 


e  fixed 


xed. 


g  s. 

haracter 
ters  ]. 


j ]  must 
va lues 
oat.  The 
y  within 
hould  be 
eed  the 
mpilers, 
le  ngth 
allow  i 
r  j  is 
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APPENDIX  3:  THE  SP/k  COMPILER 


A  special  compiler  has  been  developed  at  the  University  of 
Toronto  to  support  the  SP/k  language.  Generally,  an  SP/k  program 
that  runs  without  errors  under  the  SP/k  compiler  will  run  with 
the  same  results  under  other  PL/1  compilers  such  as  PL/C  or  the 
IT^M  PL/1  compilers. 

As  of  summer  1975  there  exist  versions  of  the  SP/k  compiler 
tha*  run  on  either  the  IBM  360/370  computers  or  the  DEC  PDP-11 
computers.  Either  punch  cards  or  mark  sense  cards  can  be 
accepted.  Persons  interested  in  obtaining  an  SP/k  compiler 
should  contact; 

SP/k  Distribution  Manager, 

Computer  Systems  Research  Group, 

University  of  Toronto, 

Toronto,  Ontario,  Canada. 

As  of  May  1975,  these  compilers  support  subsets  SP/1  to  SP/6. 
During  summer  1975  it  is  hoped  that  SP/7  will  be  implemented. 
SP/P  is  not  yet  implemented. 


SP/k  JOB  CARD  PARAMETERS 


The  first  card  of  an  SP/k  job  is  called  the  job  card,  for 
e  xample 

$JOB  ID='J0HN  WALSH' 

In  some  computer  installations,  the  characters  $J0B  are  not  used, 
and  are  replaced  by  other  characters.  For  example,  on  the 
University  of  Toronto  High  Speed  Job  Stream,  $JOB  must  be 
replaced  by  $J0BK.  The  ID  parameter  as  shown  in  this  example  job 
card  causes  the  name  JOHN  WALSH  to  be  printed  in  a  header  box 
preceding  the  printing  of  the  SP/k  program.  The  three  characters 
ID=  are  optional,  so  the  above  job  card  is  equivalent  to 

$J0B  'JOHN  WALSH' 

Other  parameters  can  be  given  on  the  job  card,  as  we  show  in  this 
example: 

$J0B  ID='GLEN  BONHAM' ,STMTS=10000,LINES=3C0 

The  parameter  STMTS=10C00  specifies  that  the  job  is  to  be  allowed 
to  execute  10000  statements  before  being  terminated  for  excess 
running  time.  The  parame-^-er  LTNFS  =  300  specifies  that  the  job  is 
to  be  allowed  to  print,  via  PUT  statements,  300  lines  before 
being  terminated  for  excess  lines.  STMTS  can  be  abbreviated  as  S 
and  LINES  can  be  abbreviated  as  L.  Individual  computer  centers 
may  have  different  job  card  parameters. 
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HANDLING  DPROES  IN  SP/k  PROGRAMS 


When  an  error  is  found  in  an  SP/k  program,  the  SP/k  compiler 
generally  makes  an  attempt  to  repair  the  error.  The  programmer 
is  warned  that  these  repairs  are  not  to  be  taken  as  intelligent 
advice  for  producing  a  correct  program,  but  instead  as  a  method 
of  allowing  processing  to  continue.  This  strategy  of  automatic 
error  repair  is  intended  to  minimize  programmer  frustration  and 
the  number  of  required  computer  runs. 

We  will  now  show  how  a  number  of  common  errors  are  handled. 
Since  compilers  are  always  being  modified,  the  treatment  of  these 
errors  by  a  particular  version  of  the  SP/k  compiler  may  differ 
slightly  from  what  we  present. 


Here  is  the  listing  of  a  simple  SP/k  program  in  which  the 
PROCEDURE  OPTIONS  (MAIN)  line  has  been  forgotten. 


1 

7 

SYNTAX  ERROR  IN  PREVIOUS  LINE.  LINE  IS  REPLACED  BY: 
1  $NIL:PEOCEDURE  OPTIONS ( MAI N) ; 


2  PUT  LIST  ('HELLO' )  ; 

3  END; 


As  you  can  see,  the  missing  line  is 
the  program  is  given  the  name  $NIL. 
prints  HELLO.  If  the  programmer 
compiler  is  often  able  to  insert  it. 


supplied  by 
The  program 
forgets  a 
as  is  sh o wn 


the  compiler 
is  executed 
semicolon, 
here : 


and 

and 

the 


2  PUT  LIST  ( 'HELLO' ) 

7 

SYNTAX  ERROR  IN  PREVIOUS  LINE.  LINE  REPLACED  BY: 
2  PUT  LIST  ('HELLO' )  ; 


If  the  programmer  forgets  the  right-hand  quote  mark  from  a 
literal,  the  compiler  inserts  a  quote  mark,  although  probably  not 
in  the  desired  place.  In  the  following  example,  the  quote  mark 
between  the  0  of  HELLO  and  the  right  parenthesis  has  been 
omitted.  The  compiler  inserts  a  quote  mark  after  the  semicolon. 
A.S  a  result,  the  line  requires  a  new  right  parenthesis  and 
semicolon  because  the  original  right  parenthesis  and  semicolon 
were  absorbed  into  the  literal.  Note  that  the  right  quote  mark 
was  not  present  on  the  card,  but  was  inserted  by  the  compiler. 


2  PUT  LIST  ('HELLO)  ;  ' 


STRING  IS  ENDED  WITH  QUOTE  (') 

=<'***  SYNTAX  ERROR  IN  PREVIOUS  LINE.  LINE  IS  REPLACED  BY: 

2  PUT  LIST  ('HELLO)  ;  ')  ; 

When  this  program  runs,  it  will  print  HELLO);  instead  of  HELLO. 
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In  the  next  example,  a  forgotten  right  parenthesis  is 
inserted  by  the  compiler. 

2  PUT  LIST  (•HELLO'  ; 

7 

SYNTAX  ERFOR  IN  PREVIOUS  LINE.  LINE  IS  REPLACED  BY: 

2  PUT  LIST (• HELLO' ) ; 

In  the  next  example,  the  keyword  PROCEDURE  has  been  misspelled. 

1  SAMPLE  :PROCDEUT?E  OPTIONS  (MAIN)  ; 

7 

****  SYNTAX  ERROR  IN  PREVIOUS  LINE.  LINE  IS  REPLACED  BY: 

1  SAMPLE: PROCEDURE  OPTION S ( MAIN) ; 

The  following  SP/k  program  does  not  make  sense  because  it  tries 
to  use  the  value  of  the  variable  named  INCHES,  but  INCHES  is 
never  given  a  value.  To  allow  the  program  to  continue  execution, 
INCHES  is  given  the  value  1. 

1  SP2 :PROCEDURE  OPTIONS (MAIN) ; 

2  DECLARE (CENTIME! ERS , INCHES) FLOAT; 

3  CENTTMETERS=2. 54E0*INCHES; 

4  PUT  LIST  ('LENGTH  IS '  ,CENTI METERS)  ; 

5  END; 

****FRROR  IN  LINE  5:  FLOAT  VARIABLE  HAS  NO  VALUE;  I.OE+OO  USED 
LENGTH  IS  2.  54000E+C0 

The  next  program  attempts  to  read  data  items  into  two  variables: 
WIDTH  and  HEIGHT.  The  data  as  provided  by  the  programmer 
contains  only  one  data  item,  so  the  program  is  stopped  because  it 
attempts  to  read  beyond  the  end  of  the  data. 

1  SP2 :PROCEDURE  OPTIONS (MAIN) ; 

2  DECLARE (WIDTH, HEIGHT) FLOAT ; 

3  GET  LIST  (WIDTH, HEIGHT)  ; 

4  PUT  LIST  ('AREA  I S ' , W IDT H*HEIGHT)  ; 

5  END; 

**’«'*ERROP  IN  LINE  3:  NO  MORE  INPUT  DATA 

The  next  program  has  WEIGHT  misspelled  as  WIEGHT  in  line  4. 
The  compiler  assumes  (wrongly)  that  WEIGHT  and  WIEGHT  are 
different  variables;  fortunately,  it  warns  us  about  its  wrong 
assumption.  Note  that  the  value  of  WEIGHT  remains  as  7.5F0. 

1  SP2 :PROCEDURE  OPTIONS (MAIN) ; 

2  DECLARE (WEIGHT)  FLOAT ; 

3  WEIGHT=7. 5E0 ; 

4  WTEGHT=2. 2E0*WEIGHT; 

5  PUT  LIST  ('WEIGHT  IS', WEIGHT); 

6  END; 

«=<'*AERROR  IN  LINE  4:  UNDECLARED  VARIABLE  ASSUMED  FIXED 
WEIGHT  IS  7.50000E+00 
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In  the  next  program,  the  values  of  NUMBER  were  not  read 
inside  the  loop.  As  the  program  now  stands,  there  is  an  infinite 
loop  because  NUMBER  is  not  changed  inside  the  loop. 

1  SP3:PR0CEDURE  OPTIONS  (MAIN)  ; 

2  DECLARE (NUMBER, SUM)  FIXED; 

3  SDM=0; 

ii  NUMBER  =  0; 

5  DO  WHILE  (NUMBER-.  =  -99999)  ; 

6  SUM=SUM+NDMBER ; 

7  END; 

8  PUT  LISTCSUM  IS', SUM); 

9  END; 

=<'***FRROR  IN  LINE  6:  EXECUTION  LIMIT  EXCEEDED 


T 

McKee 
9  let 


he  next  program  tries  to  find  the  last  name 
man,  but  since  the  name  McKeeman  contains  8  letters 
ters,  the  substring  does  not  lie  within  the  string. 


of  Bill 
and  not 


1  SP4;PR0CEDURE  OPTIONS (MAIN) ; 

2  DECLARE  (  NAME,  LAST_NAME)  CHARACTER.  (20)  VARYING; 

3  NAME='BILL  MCKEEMAN'; 

4  LAST_NAME=SUBSTR  (NAME,6, 9)  ; 

5  PUT  LISTCLAST  NAME  IS  '  ,  LAST_NAME)  ; 

6  END ; 

’('ERROR  IN  LINE  4:  SPECIFIED  SUBSTRING  NOT  WITHIN  STRING 
LAST  NAME  IS  ? 

In  the  next  program  the  NAME  array  contains  elements  NAME  (1)  , 
NAME (2),  NAME  (3),  and  NAME  (4)  .  The  program  is  supposed  to  read 
four  names  followed  by  the  dummy  name  ZZZ,  When  the  program 
runs,  there  is  an  error  because  an  attempt  is  made  to  read  ZZZ 
into  NAMF(5),  but  NAME  (5)  does  not  exist.  The  error  can  be 
corrected  by  increasing  the  declared  upper  bound  of  NAME  to  5. 

1  SP5 :PROCEDURE  OPTIONS (MAIN) ; 

2  DECLARE (NAME (4) ) CHAR ACTED ( 20)  VARYING; 

3  DECLARE (I) FIXED; 

4  1  =  1  ; 

5  GET  LIST  (NAME  (I) )  ; 

6  DO  WHILE  (NAME  (I) -='ZZZ')  ; 

7  PUT  LIST (NAME  (I) )  ; 

8  1=1+1; 

9  GET  LIST (NAME  (I) )  ; 

10  END; 

11  END; 

ERROR  IN  LINE  9;  SUBSCRIPT  OUT  OF  RANGE;  LOWER  BOUND  USED 


CHARACTERISTICS  OF  THE  SP/k  COMPILER 


The  various  compilers  for  PL/1  differ  in  their  treatment  of 
certain  constructs  of  the  PL/1  language.  Generally,  conservative 
use  of  these  constructs  results  in  programs  that  work  as  well 
under  most  of  the  compilers.  In  this  section  we  list  limits  of 


the  SP/k  compiler  and  those 
in  its  own  particular  way. 
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aspects  that  it  may  handle 


langu  age 


large  number  of  errors  in  programs  will  be 
automatically  ’’repaired”. 

boundaries.  Identifiers,  keywords,  constants  and 
comments  cannot  cross  card  boundaries  in  a  program.  Constants 
read  by  GET  LIST  cannot  cross  card  boundaries.  If  a  constant 
uses  the  last  columns  of  one  card  and  another  constant  uses  the 
first  columns  of  the  next  card,  the  two  constants  are  read 
separately.  Persons  using  mark  sense  cards  are  provided  with  a 
convention  for  suppressing  card  boundaries  when  desired. 


Use  of  card  columns  for  programs . 
presented  using  punch  cards,  all  80  columns 


When  a 
are  used. 


program  is 


1^9.  chararter  operators.  This  compiler  does  not  in  general 
enforce  the  convention  that  blanks  may  not  be  embedded  in  two 
character  operators  such  as  >=.  (In  fact,  it  allows  blanks  in 
>=,  <=  and  -'=  but  not  in  M.) 


IsHUlb  of  identifiers, 
characters  long. 


Identifiers  can  be  at  most  31 


Width  of  £rint  fields.  For  printers  with  120  or  132  columns, 
there  are  5  fields  per  print  line  with  24  columns  per  field.  For 
printers  with  72  or  80  columns,  there  are  5  fields  per  line  with 
14  columns  per  field. 

of  Elinfod  numbers.  Each  fixed  or  float  value  printed 
by  a  PUT  LIST  statement  is  right- justified  in  the  first  12 
columns  of  the  next  print  field.  Float  values  are  printed  in  the 
form  mD. dddddEsdd  where  m  is  an  optional  minus  sign,  D  is  a  non¬ 
zero  digit,  each  d  is  a  digit,  and  s  is  a  plus  or  minus  sign. 
(Exception:  D  is  zero  when  the  float  value  is  zero.) 


of 


Pange  of  fixed  values. 
999999999. 


Fixed  values  have  a  maximum  magnitude 


Non-integer  fixed  constants.  Non- integer  fixed  constants, 
e.g. ,  214.8,  are  flagged  as  errors  in  programs  and  are 

automatically  converted  to  float.  Non-integer  fixed  constants 
are  accepted  (without  error  messages)  in  data. 

Range  of  float  values.  Float  values  have  a  maximum  magnitude 
of  I.OOOOOE+367 

Etecision  of  float  arithmetic.  Float  arithmetic  is  accurate 
to  approximately  6  significant  figures. 

of  character  strings.  Character  strings  can  be,  at 
most,  127  characters  long. 
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before  use.  The  definition  of  a  procedure  must 
appear  before  its  invocation,  (Calling  of  a  following  procedure 
which  has  the  same  name  and  parameter  attributes  as  a  global 
procedure  will  result  in  a  call  to  the  global  procedure  instead 
of  a  call  to  the  following  procedure;  no  error  message  will  be 
i ssued . ) 

Checks  for  recursion.  Any  procedure  (except  the  main 
procedure)  can  be  called  recursively;  the  RECURSIVE  attribute  is 
neither  reguired  nor  permitted. 

Conversion  of  arguments.  Conversion  of  fixed  scalar 
arguments  to  float  scalar  formal  parameters  (and  vice  versa)  is 
automatic  and  creates  a  dummy  argument. 

Dummy  arguments.  A.rguments  preceded  by  a  unary  plus  or 
enclosed  in  parentheses  will  have  a  dummy  argument  created. 
Assignment  of  a  value  to  a  parameter  having  a  dummy  argument  does 
not  change  the  value  of  the  actual  argument. 

division  of  fixed  values.  Division  of  fixed  values,  for 
example  7/3,  results  in  an  error  message,  and  the  truncated  value 
of  the  guotient  is  used. 

Collating  seguence.  The  version  of  the  SP/k  compiler  that 
runs  on  the  IBM  360/370  has  IBM  standard  (EBCDIC)  order  of 
characters  for  comparisons: 


b.  <(  +  I  &$*)  #a'=ABCDEFGHIJKLMNOPQRSTUVWXYZ012  3456  789 

The  version  of  the  SP/k  compiler  that  runs  on  the  DEC  PDP-11  has 
the  international  standard  (ASCII)  order  of  characters  for 
compa  risons: 

b  I  #$%&'  0  *  +  /01  2  345  6789  :  ;  <=>?SABCDEEGHI  JKLMNOPQRSTDVWXY  Z_-^ 


Since  the 

characters  | 

1  and  -1  ar 

e  not  standard  ASCII  char 

act 

they  are  printed  as  the 

exclamat i 

on  point  and  the 

caret. 

Reserved  words.  The  followi 
not  be  used  as  names  of  variables 

ng  are  keywords 
or  procedures. 

in  SP/k  a 
In  addit 

nd 

ion 

ident if ier 

should  begin 

with  the 

characters  $JOB. 

BIT 

ELSE 

INPUT 

PAGE 

THEN 

BY 

END 

INTO 

PROCEDURE 

TO 

CALL 

FILE 

LIKE 

PUT 

VARYING 

CHARACTER 

FIXED 

LIST 

READ 

WHILE 

CLOSE 

FLOAT 

MAIN 

RECORD 

WRITE 

DECLARE 

FROM 

OPEN 

RETURN 

$DATA 

DO 

GET 

OPTIONS 

RETURNS 

$JOB 

EDIT 

IF 

OUTPUT 

SKIP 

ers. 


must 
,  no 


APPENDIX  4 


SP/k  Deference  Card 


Point  3  above  refers  to  mark  sense  cards 
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APPENDIX  5 

SP/k  Mark  Sense  Card 
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